VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BDestino"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'---------------------------------------------------------------------------------------
' Module    : BDestino
' DateTime  : 03/12/2011 16:10
' Author    :
' Purpose   : Clase Datos Entidad Destino
'---------------------------------------------------------------------------------------
Option Explicit
Private mvarncodigodestino As Integer
Private mvarsdescripcion As String
Private mvarsnombreimpresora As String
Public Property Get ncodigodestino() As Integer
    ncodigodestino = mvarncodigodestino
End Property
Public Property Let ncodigodestino(ByVal ncodigodestino As Integer)
    mvarncodigodestino = ncodigodestino
End Property
Public Property Get sdescripcion() As String
    sdescripcion = mvarsdescripcion
End Property
Public Property Let sdescripcion(ByVal sdescripcion As String)
    mvarsdescripcion = sdescripcion
End Property
Public Property Get snombreimpresora() As String
    snombreimpresora = mvarsnombreimpresora
End Property
Public Property Let snombreimpresora(ByVal snombreimpresora As String)
    mvarsnombreimpresora = snombreimpresora
End Property
